home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / RTTextReq.asc < prev    next >
Text File  |  1980-03-10  |  1KB  |  40 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Rt Lib Open
  13. '  -Rt Text Req
  14. '  -Rt Lib Close 
  15. '  
  16. Screen Open 0,640,256,2,$8000
  17. Curs Off : Flash Off : Cls 0
  18. Colour 1,$FFF : Print 
  19. '
  20. Amos To Back 
  21. 'Ouverture de la reqTools.library
  22. E=Rt Lib Open
  23. 'Ouverture impossible
  24. If E=0 Then End 
  25. '
  26. B=Rt Text Req("Bonjour, comment pensez-vous"+Chr$(10)+"que je m'appele ?."," Lucien | Bernadette | Emilie | Etienne | ??? ","La question du mois...",4,2)
  27. '
  28. If B=1 Then T$="e Lucien..."
  29. If B=2 Then T$="e Bernadette..."
  30. If B=3 Then T$="'Emilie..."
  31. If B=4 Then T$="'Etienne..."
  32. If B=0 Then Print "Vous ne savez pas ?..." : Goto PPP
  33. Print "Vous pensez que j'ai une tete d";T$
  34. '
  35. PPP:
  36. 'Refermer la librairie 
  37. Rt Lib Close 
  38. Amos To Front 
  39. Wait Key 
  40.